object frmServer: TfrmServer
  Left = 0
  Top = 0
  Caption = 'RTC Fish Fact Server ('#21333#32447#31243'RtcMemDataSet'#29256#26412')'
  ClientHeight = 465
  ClientWidth = 624
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object spl1: TSplitter
    Left = 0
    Top = 236
    Width = 624
    Height = 5
    Cursor = crVSplit
    Margins.Left = 2
    Margins.Top = 2
    Margins.Right = 2
    Margins.Bottom = 2
    Align = alBottom
    ExplicitTop = 199
    ExplicitWidth = 618
  end
  object dbgrd1: TDBGrid
    Left = 0
    Top = 37
    Width = 624
    Height = 199
    Margins.Left = 2
    Margins.Top = 2
    Margins.Right = 2
    Margins.Bottom = 2
    Align = alClient
    DataSource = ds1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object pnl1: TPanel
    Left = 0
    Top = 241
    Width = 624
    Height = 224
    Margins.Left = 2
    Margins.Top = 2
    Margins.Right = 2
    Margins.Bottom = 2
    Align = alBottom
    TabOrder = 1
    object pnl3: TPanel
      Left = 1
      Top = 197
      Width = 622
      Height = 26
      Margins.Left = 2
      Margins.Top = 2
      Margins.Right = 2
      Margins.Bottom = 2
      Align = alBottom
      TabOrder = 0
      object lbl1: TLabel
        Left = 7
        Top = 7
        Width = 143
        Height = 13
        Margins.Left = 2
        Margins.Top = 2
        Margins.Right = 2
        Margins.Bottom = 2
        Caption = 'Allowed operations by clients:'
      end
      object chkInsert: TCheckBox
        Left = 159
        Top = 7
        Width = 73
        Height = 13
        Margins.Left = 2
        Margins.Top = 2
        Margins.Right = 2
        Margins.Bottom = 2
        Caption = 'INSERT'
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = chkInsertClick
      end
      object chkUpdate: TCheckBox
        Left = 241
        Top = 7
        Width = 78
        Height = 13
        Margins.Left = 2
        Margins.Top = 2
        Margins.Right = 2
        Margins.Bottom = 2
        Caption = 'UPDATE'
        Checked = True
        State = cbChecked
        TabOrder = 1
        OnClick = chkInsertClick
      end
      object chkDelete: TCheckBox
        Left = 325
        Top = 7
        Width = 79
        Height = 13
        Margins.Left = 2
        Margins.Top = 2
        Margins.Right = 2
        Margins.Bottom = 2
        Caption = 'DELETE'
        Checked = True
        State = cbChecked
        TabOrder = 2
        OnClick = chkInsertClick
      end
    end
    object mmoSQL: TMemo
      Left = 1
      Top = 1
      Width = 622
      Height = 196
      Margins.Left = 2
      Margins.Top = 2
      Margins.Right = 2
      Margins.Bottom = 2
      Align = alClient
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object pnl2: TPanel
    Left = 0
    Top = 0
    Width = 624
    Height = 37
    Margins.Left = 2
    Margins.Top = 2
    Margins.Right = 2
    Margins.Bottom = 2
    Align = alTop
    TabOrder = 2
    object lbl2: TLabel
      Left = 10
      Top = 13
      Width = 65
      Height = 13
      Margins.Left = 2
      Margins.Top = 2
      Margins.Right = 2
      Margins.Bottom = 2
      Caption = 'Listening Port'
    end
    object lblListen: TLabel
      Left = 243
      Top = 12
      Width = 93
      Height = 13
      Caption = 'Server not listening'
    end
    object lblConnCount: TLabel
      Left = 363
      Top = 12
      Width = 57
      Height = 13
      Caption = 'Conn Count'
    end
    object edtPort: TEdit
      Left = 85
      Top = 10
      Width = 65
      Height = 21
      Margins.Left = 2
      Margins.Top = 2
      Margins.Right = 2
      Margins.Bottom = 2
      TabOrder = 0
      Text = '81'
    end
    object btnListen: TButton
      Left = 156
      Top = 7
      Width = 82
      Height = 26
      Margins.Left = 2
      Margins.Top = 2
      Margins.Right = 2
      Margins.Bottom = 2
      Caption = 'Listen'
      TabOrder = 1
      OnClick = btnListenClick
    end
    object btnRef: TBitBtn
      Left = 528
      Top = 7
      Width = 75
      Height = 25
      Caption = #21047#26032
      TabOrder = 2
      OnClick = btnRefClick
    end
  end
  object rtchtpsrvr1: TRtcHttpServer
    ServerPort = '81'
    OnClientConnect = rtchtpsrvr1ClientConnect
    OnClientDisconnect = rtchtpsrvr1ClientDisconnect
    OnListenStart = rtchtpsrvr1ListenStart
    OnListenStop = rtchtpsrvr1ListenStop
    Left = 24
    Top = 88
  end
  object ds1: TDataSource
    DataSet = dmdmSrvr.rtcmdtstSelect
    Left = 124
    Top = 168
  end
end
